/* GUI CONVERTED from rsiq03a.p (converter v1.75) Sat Aug 12 23:14:09 2000 */
/* rsiq03a.p - Release Management Supplier Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* web convert rsiq03a.p (converter v1.00) Fri Oct 10 13:58:00 1997 */
/* web tag in rsiq03a.p (converter v1.00) Mon Oct 06 14:18:40 1997 */
/*F0PN*/ /*K13M*/ /*                                                    */
/*V8:ConvertMode=Report                                        */
/* REVISION: 7.3    LAST MODIFIED: 10/16/92           BY: WUG *G462*    */
/* REVISION: 7.3    LAST MODIFIED: 02/18/83           BY: WUG *G695*    */
/* REVISION: 7.3    LAST MODIFIED: 11/17/94           BY: jxz *GO50*    */
/* REVISION: 7.3    LAST MODIFIED: 03/28/95           BY: bcm *G0JH*    */
/* REVISION: 8.6    LAST MODIFIED: 10/21/97           BY: ays *K13M*    */

/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb              */
/* SHIPPER/CONTAINER INQUIRY SUBPROGRAM */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

/*K080*/ {mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rsiq03a_p_1 "Qty to Rcv"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03a_p_2 "Item Number!Location"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03a_p_3 "ID!Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03a_p_4 "ID"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03a_p_5 "Line!Ref"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsiq03a_p_6 "PO Number!Lot/Serial"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

/*K13M*/ {wbrp02.i}

define input parameter abs_recid as recid.
define input parameter indent_ct as integer.

/*K080* {mfdeclre.i}  */
define variable ctype as character label "T" format "x(1)".
define variable disp_abs_id as character.
define shared frame c.
/*K080* define variable indent_id as character format "x(16)" label "ID".   */
/*K080*/ define variable indent_id as character format "x(20)" label {&rsiq03a_p_4}.
define variable par_shipfrom as character.
define variable par_id as character.

/*GO50 CHANGING TO A DIFFERENT FRAME FOR INQUIRY
form
   indent_id
   abs_item     column-label "Item Number"
   scx_po       format "x(8)"
   scx_line
   abs_qty      format "->,>>>,>>9.9<<<<<<<<" column-label "Qty to Receive"
   pt_um
   abs_site
   abs_loc
   abs_lotser
   abs_ref
with frame c down width 132. */

/*GO50*/  FORM /*GUI*/ 
/*GO50*/    indent_id    column-label {&rsiq03a_p_3}
/*GO50*/    abs_item     column-label {&rsiq03a_p_2}
/*GO50*/    scx_po       column-label {&rsiq03a_p_6} format "x(16)"
/*GO50*/    scx_line     column-label {&rsiq03a_p_5}
/*K080* /*GO50*/ abs_qty  format "->,>>>,>>9.9<<<<<<<<" column-label "Qty to Receive"  */
/*K080*/    abs_qty  format "->,>>>,>>9.9<<<<" column-label {&rsiq03a_p_1}
/*GO50*/    pt_um
/*GO50*/  with STREAM-IO /*GUI*/  frame c down width 80.

/* SET EXTERNAL LABELS */
setFrameLabels(frame c:handle).

find abs_mstr where recid(abs_mstr) = abs_recid no-lock.

find pt_mstr where pt_part = abs_item no-lock no-error.

if indent_ct = 0 then                                                   /*G0JH*/
   indent_id = substring(abs_id,2).                                     /*G0JH*/
else                                                                    /*G0JH*/
   indent_id = substring("...........",1,indent_ct) + if abs_id begins "i"
                           then "I" else abs_id.
/*K080* indent_id = caps(indent_id).    */

find pod_det where pod_nbr = abs_order and pod_line = integer(abs_line)
no-lock no-error.

/*GO50
 * disp
 * indent_id
 * abs_item
 * pod_nbr when available pod_det @ scx_po
 * "" when not available pod_det @ scx_po
 * pod_line format ">>>9" when available pod_det @ scx_line
 * abs_qty when abs_qty <> 0
 * pt_um   when available pt_mstr
 * abs_site
 * abs_loc
 * abs_lotser
 * abs_ref
 * with frame c. */

/*GO50*/ display
/*GO50*/    indent_id  abs_item
/*GO50*/    (if available pod_det then pod_nbr else "") @ scx_po
/*K080* /*GO50*/    pod_line format ">>>9" when available pod_det @ scx_line */
/*K080* /*GO50*/    abs_qty    when abs_qty <> 0               */
/*K080* /*GO50*/    pt_um      when available pt_mstr          */
/*K080*/    pod_line format ">>>9" when (available pod_det) @ scx_line
/*K080*/    abs_qty    when (abs_qty <> 0)
/*K080*/    pt_um      when (available pt_mstr)
/*GO50*/ with frame c STREAM-IO /*GUI*/ .
/*GO50*/ down 1 with frame c.
/*GO50*/ display
/*GO50*/    abs_site @ indent_id
/*GO50*/    abs_loc  @ abs_item
/*GO50*/    abs_lotser @ scx_po
/*GO50*/    abs_ref format "x(4)" @ scx_line
/*GO50*/ with frame c STREAM-IO /*GUI*/ .

down 1 with frame c.

par_shipfrom = abs_shipfrom.
par_id = abs_id.

for each abs_mstr no-lock
where abs_shipfrom = par_shipfrom
and abs_par_id = par_id:
   if keyfunction(lastkey) = "END-ERROR" then leave.    /*G0JH*/
   {gprun.i ""rsiq03a.p"" "(input recid(abs_mstr), input (indent_ct + 1))"}
end.
/*K13M*/ {wbrp04.i}
